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MATH FOR THE 2058 ~ TRIG 2 
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TRIG = 
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TS 1000 MACHINE CODE PROGRAMMING 
by Doug Carter 


I have been asked to write а little article about my 
experiences with machine code. I have very limited experience 
with programming and next to none with machine code so forgive 
me if I am too basic. 


My first discovery was, like most, a product of necessity. 
I had a machine code program in PROM that wouldn't run as 
advertised. My printer wouldn't work, my  disassembler wouldn't 
run so I had to do something drastic. Mat Mathieson suggested 
that I “block move" the entire program with machine code into 
user КАМ. That would allow me to SAVE the program to tape and 


move it to another machine. He also lent me his copy of Zacs’ 


"How to program the 780". Armed with this manual and а lot of 
verbal support from Mat, I proceeded to learn "block move". 


Before we move on to machine code programming, let's look 
at Clives' storage method. In chapter 26 of the User Manual, we 
find that data is stored in a predetermined format. Page 128 
shows us that there are two bytes for the line number, two for 
the length, then the text. Оп that same page, they show us that 
the program area starts at : 509. We put these facts together 
and add a little math, we can predict where anything is in RAM. 


The "block move" is a machine code method of moving data 
from one point in memory to another. The only parameters аге 
that you know where in memory the data is located, how many 
bytes are to be moved, and where you want the data to end up. 


In my example, I have а program in PROM, the program 
resides at location 8197, is 2048 bytes long, and I want it in a 
"1 REM" condition in RAM. The first step is to create a machine 
code program that will perform the required move. 


The 780 has several moves available, the one I chose is 
the "LDIR". This is a repeating block move with increment. Ihe 
requirements are that the memory location in the HL register is 
the "move from" location, the memory location in the DE register 
is the "move to" location, and the number of bytes to be moved 
is in the BC register. 


Now for a program, we have to get the data into the several 
registers and then perform the move. Zaks explains that To place 


data into the HL register, use LD HL (the mnemonic being 


represented by the decimal number 055); the DE register, use LD 
DE (01749); the BC register, LD BC (001d). The addresses and 
numbers that you are loading are entered as two bytes, the first 
being the least significant. To explain further, divide the 
number by 256, the whole number dividend is byte two, the 
remainder is byte one. 











I want to clarify the addressing а little. 1711 use а road 
map to helps 


16509 Two bytes of line number, most significant first 
16511 Two bytes of line length, least significant first 
16515 The token КЕМ 

16514 2048 bytes of space to move program into 

18562 The token ENTER 

18565 Two bytes of line number, same as before 

185652 Two bytes of line length, same as before 

18567 The token КЕМ 

18568 12 bytes of move program 


So, to review, we must load the three registers and perform 


а LDIR, а two byte instruction (237,176d). The last step is a 
return to basic (201d). If we put this all together, we end up 
with the following; 


LINE # MNEMONIC DECIMAL s PROGRAM DATA 
1 LD HL 8192 055, 000, 032 
2 LD DE 16514 017, 130, 064 
3 LD BC 2048 001, ооо, 008 
4 LDIR 237, 176 

= БЕТ 201 


Now that we have our program, we're ready to load it into 
the computer. I use КЕМ Builder ( see Sync Volume 3, Issue #6, 
Page# 72 ) to build а 1 REM of 2048 bytes to receive the moved 
program. Next, enter a 2 REM with 1? spaces. 


То load your data, build а "FOR/NEXT" routine to poke your 
input in the twelve memory locations. 


10 FÜR X = 18568 TO 18579 
11 INPUT А 

12 PDKE X, А 

1$ PRINT x. А 

14 МЕХТ Х 


Start it with GOTO 10 and enter the data as required. Now 
add program line 5; 3 RAND USR 18568 Rather than erase your КЕМ 
loader routine, just add а line 4: 4 STOP. 


The program is all ready to use. I hope that I have made 
it understandable for everyone. With a little thought, you сап 
change a few points and move things above КАМТОР quite simply. A 
basic program to move data above КАМТОР is, at best, slow апа 
cumbersome. If anyone learns one new noint, I’ve done what I 
set out to do. | 
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IM LRA” > 
PRINT "AMOUNT OF LOAN" 

ІМРІЛТ AMT 

FRIHT НИТ 

36 РЕІНТ “ANNUAL IMTERESI FATE 7" 
4B ТНРУТ RAT 

45 FRIHT КАТ 

эй PRIMT "LIDAH ОБУЕАТТОН © пока x" 
өй ТНРУТ FP 

Бы PRINT МО 

ro LET INT= RAT- 1003712 

HO LET DI ISOFR=1+IHI 

38 LET ОІВ ISOR МО 

188 LET DIVISOüRz1-6l4DIVISORKR» 

118 LET Р=НМТЖ TMT DEY ISUR) 

128 PRINT "PRYMEHTz";P 

130 FRINT — x 
140 PRINT "HO. INT FAID PROUT DOR ЕРИ." 
145 FOR IsITO M 

190 LET IHTPRIDzRmHMTEXIHT 

leg LET kEDzP-IHTFRID 

)?8 LET RHMTsRHT-RED 
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BY John kuhn 


Welcome to VOL.#1 ISSUE #1 of the SINE TIMES. In my little 
МІН “¿NEWS IO USE) corner I will attempt to pass along 
information from various sources on programming tips, new 
Hardware/Software, and other developments that directly affect 
us ZX-TS survivors. 

Over the years of using the ZX-TIS machines, І have 
accumulated some helpful programming tips that I have compiled 
into my First МТУ column. Most likely you will have ғап across 
many Of these tips before from fellow programmers or NEWSLETTERS 
/ MAGAZINES, but hopefully many of you will gleen one ог two 
useful bits of new information to help sharpen your programming 
Skills. 

Ап “*" beside the ТІР # will indicate that this tip 


1) TRUNCATE & ROUND GFF OUTPUT 

Since the TS computers do not have a command to preset the 
number of decimal places that will be output, the following 
little routine will do it for you. Example: It you ask your 
machine to print the value of 22/7 you get 3.1428571 or a number 
with 7 decimal places. The 7 decimal places may look quite 
impressive, but try to print it at column #28 and you will 
overwrite the next 5 spaces in the following line. SOLUTION: Try 
this. Before you print X to the screen, add a line that says : 


LET X = INT ((Х+.5/ 1Ey)* 1Ey)/ 1Ey where y= the # of decimal 
places that you would like X to be truncated and rounded off 


too. In the above example set y-2 so the answer will print out 
as 3.14. 


ama A A A LC LO TS nl «аяғы» -.. LT mee 


+ 2) To input a value on lines #22 & #23 so as not to 
overwrite text on lines #1 thru #22 use this format г 


Е INPUT “YOUR STATEMENT “3; X J where X can be either a 
numerical or string variable. ' 

* 3) To prevent the stop command from functioning оп а string 
input іп a program that does not use the ""ON ERR"" command, try 
this: 


INPUT LINE ХФ or INPUT "YOUR STATEMENT "$; LINE X$. (LINE 
command is on the EXTENDED mode key 3). Опе feature you 
will notice when using this technique is that the quotation 
marks will be missing around the input cursor even though you 
are entering a string variable. This prevents you from deleting 
the left quotation mark and inputting STOP. Unfortunately an 
apparent BUG in the TS 2068 ROM will STOP the program if CAP 
SHIFT #5 is pressed. 

4) STOPPING SELF RUNNING PROGRAMS ON ZA-81/ TS 7000754. 

To stop апу ZX-81/ TS 1000 program from AUTORUNNING so you 
can make backup copies or examine the program, try this: 


4 








“е 


LOAD CHR$ USR 832 "" instead of just using LOAD "^". after the 
program goes thru the normal load pattern it will return ito a 


Grey search screen. PRESS BREAK at this time and then press LIST 


+ ENTER. Save as usual or GOTO the line # that has the’ SAVE 
command to make a self running duplicate. The advantage to this 
procedure is that it does not take any memory or require you to 
load in a stopper program. | 

5) SAVING RAM WHILE PROGROMMING 

This subject alone could be the basis for a complete series 
of NTU articles so I will only cover three short tips. 

A) Remove unneeded КЕМ statements {make sure not to 
remove those that have machine language in thewd. 

B) Use KEYBOARD words in your print statements. 

Eg.: To enter the following statement, 

10 PRINT “INFUT VALUE" Try this. 

The word INPUT is the keyword on the (I) key. First enter line t 
10 then press the keyword INPUT. Now use the shifted #5 key to 
backspace to the left of the word INFUT and press the P key to 
now have 10 PRINT INFUT. Now add quotes to the left of the word 
INPUT and use the shift #8 key to move to the right of the word 
INPUT. Now type in the word VALUE" & press ENTER. Instead of the 
word INPUT taking 5 bytes of memory it will now only take 1 
byte. 
C) USE of the VAL COMMAND: 

Eg. Instead of using a statement like 100 GOSUB 6000 try 
using: 100 GOSUB VAL "6000". 

The use of VAL will yield a net savings of 3 BYTES of 
memory saved per usage. One trade off in using the VAL command 
is that program execution speed 15 slower. * 

The above techniques are especially useful on the ZX-IS 16k 
ог less machines, but why would you worry about saving memory on 
the TS 2068? ANSWER: DATA BASE programs will have more memory 
for data, SPREADSHEETS will have more room for number  crunching 
and WORD PROCESSORS will have a bigger text file area. 

+ 6) PROGRAM FILE 

Unlike the the ZX-81 or TS 1000 whose program file always 
begins at 16509 the TS 2068 does not have а set starting 
address. It's starting address may be found by: PRINT PEEK 
25635 + 256 * PEEK 25656. 


* 7) If you plan to use UDG’s (USER DEFINED GRAPHICS) in 
a long BASIC program that will incorporate a Video Mode Change, 
first lower КАМТОР to 52255 by using CLEAR 63255. A BUG in the 
TS 2068 ROM will allow a long BASIC program to overwrite your 
UDG*s if КАМТОР is not first lowered. 

* В) If you are using cartridge software that can be 
stopped by using the break key, you may enter your own BASIC 
lines into КАМ by first POKING 23750,0. If you would like to 
return to the cartridge ROMware POKE 257950, 128 


J 
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9) Since the use of the INT command always rounds the 
subsequent # down, use this instead to give a better rounded otf 


figure. INT (X + .5) 
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x 10) You may switch from CAPS LOCK to LOWER CASE characters 
(and back again) within a program by using РОКЕ 25558,8 (CAPS 
LOCK) or POKE 23658,0 (LOWER CASE). | 
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X 11) When using the PRINT command the use of 7 will give а 
line feed on the PRINT statement. Eg. PRINT 777 "Hello" will 
print Hello on line #4. 

* 12) The TS 2068 is one of the few MICRO computers that can 
normally only input information on the bottom two lines of the 
screen, however the following little trick will allow you to 
input information anywhere on the screen. NOTE: This routine 
will scroll other information off the screen if it is not used 
first. | 

EG.: 5 PRINT AT 10,10;" THIS IS PRINTED AT 10,10" 
10 INPUT AT 22,0; АТ 0,0% “INPUT #1 "АФ; АТ 1,0; 
“INPUT #2 ";B$; АТ 2,0; “INPUT #3 ";С$ .... etc. 
Line #5 was only added to show you what will happen if 
other information is on the screen when you use the INPUT AT 
command. | 


15) Ав you probably know, using the NEW command will only 
clear out the memory below КАМТОР. Occasionally though I find 
myself needing to completely RESET the computer memory for one 
reason or another. Normally in the past I have gotten in the 
habit of switching the power off then back on to accomplish 
this. Not only does this tend to wear out the on off switch, but 
more importantlly each time the power 15 recycled a power surge 
hits the computer. SOLUTION: Type PRINT USR O will reset 
computer the same as if it were cold started. 

* 14) То obtain an audible feedback from the TS 2068 
keyboard when typing or programming POKE 23609,X% where X сап 
be any number from 1 to 255. Poking different numbers will 
yield different sounds. (1 personally like to POKE 23699,12) 
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+ 15) Use USR 15000 in а VARIBLE INPUT statement (will not 
work with a string variable INFUT statement) to ЭТОР a program 
that has an ON ERR command that prevents the use of the BREAK 
key from functioning. After program stops then IMMEDIATELY type 
ON ERR RESET to deactivate the ON ERR command and prevent 
keyboard lockup. A problem that 1 have run into using this 
method is that if a particular program has its own character set 
above RAMTOP for the computer to use you will oftentimes. get а 
garbage listing of the program. If this happens POKE 25606,0 & 
РОКЕ 25607,60 to redirect the computer to the ROM area 
character set to obtain a program listing- Unfortunately the 
alternate character set will oftentimes be destroyed Бу using 
this trick. 
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* 16) To change the amount of time needed to hold down a key 
until 1% repeats POKE 23561,X where X may = 1 to 39. Initially 


the value will be 35 on power up, but each lower value will 


speed up by 1/ó6O0th of a second the time until the key repeats. 

ж 17) To change «Пе amount of time between consecutive 
repeats (once key starts repeating) POKE 23562,X where X = 1 to 
5. This also speeds up function by 1/60th of a second for each 
lower number entered. 
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uses as SCROLL CONTROL. Poking any number from 1 to 255 into 
this address will cause the computer to scroll that many lines + 
21 on the screen. 

ж 19) If you have created your own set of UDG’s (User 
Defined Graphics) and would like to save them to tape so you 
can reload them at will without having to either remake them ог 
load in a program that will remake them then try this: FIRST 
type SAVE "name" CODE USR "А", 21%*8. If you have not created а 
full 21 characters then substitute the number of characters you 
wish to save for the 21 in the above statement. Мом to reload 
your custom character set: Type LOAD "" CODE USR "A",21#8 and 


you will easily be able to load your UDG’s into your own 
progr aims. : 


I wish I had more room in this first installment of TS 
NEWS TO USE but newsletter space dictates that I must at 
minimum make this a multipart series. Fart II will be in VOL. #1 
ISSUE #2 of THE SINC TIMES. If you have any NEWS ТО USE tips 
please drop me a line with them & I'11 see about including them 
in an upcoming NEWS TO USE column. Until the next time keep оп 
ZX-TS computing. 


SEND TO: JOHN KUHN 
N.E.F.T.S8S.U.G TS NENS TO USE 
1707 KING ST. | 

4 PCKSUNVILLE, FL. 32204 
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